home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / tsqed16.zip / BOXTOASC.QMA < prev    next >
Text File  |  1992-03-28  |  4KB  |  64 lines
  1. *                                                All rights reserved
  2. * Convert box drawing characters to 7-bit ascii
  3. * By Timo Salmi, Sat 28-March-1992
  4. *
  5. * To compile these macros apply QMAC BOXTOASC.MAC BOXTOASC.QMA /A- /B
  6. *
  7. * The QMAC.EXE macro translator is from
  8. * garbo.uwasa.fi:/pc/editor/qmac215.zip
  9. * (Also the earlier version 2.1 will do).
  10. *
  11. * To make these macros available you can e.g. first invoke the main
  12. * menu (usually F10) and select Macro: Read Macro: boxtoasc.mac. Then
  13. * you can invoke then with ALT-5 and ALT-6. The macro has been
  14. * divided into two parts so that it fits the allowed QEdit memory
  15. * limits.
  16.  
  17. @5 MacroBegin
  18.    BegFile FindReplace "─" Return "-" Return Return JFalse next01: "r" next01:
  19.    BegFile FindReplace "│" Return "!" Return Return JFalse next02: "r" next02:
  20.    BegFile FindReplace "┌" Return "+" Return Return JFalse next03: "r" next03:
  21.    BegFile FindReplace "┐" Return "+" Return Return JFalse next04: "r" next04:
  22.    BegFile FindReplace "┘" Return "+" Return Return JFalse next05: "r" next05:
  23.    BegFile FindReplace "└" Return "+" Return Return JFalse next06: "r" next06:
  24.    BegFile FindReplace "┬" Return "+" Return Return JFalse next07: "r" next07:
  25.    BegFile FindReplace "┴" Return "+" Return Return JFalse next08: "r" next08:
  26.    BegFile FindReplace "┼" Return "+" Return Return JFalse next09: "r" next09:
  27.    BegFile FindReplace "┤" Return "+" Return Return JFalse next10: "r" next10:
  28.    BegFile FindReplace "├" Return "+" Return Return JFalse next11: "r" next11:
  29.  
  30.    BegFile FindReplace "═" Return "-" Return Return JFalse next12: "r" next12:
  31.    BegFile FindReplace "║" Return "!" Return Return JFalse next13: "r" next13:
  32.    BegFile FindReplace "╔" Return "+" Return Return JFalse next14: "r" next14:
  33.    BegFile FindReplace "╗" Return "+" Return Return JFalse next15: "r" next15:
  34.    BegFile FindReplace "╝" Return "+" Return Return JFalse next16: "r" next16:
  35.    BegFile FindReplace "╦" Return "+" Return Return JFalse next17: "r" next17:
  36.    BegFile FindReplace "╩" Return "+" Return Return JFalse next18: "r" next18:
  37.    BegFile FindReplace "╚" Return "+" Return Return JFalse next19: "r" next19:
  38.    BegFile FindReplace "╬" Return "+" Return Return JFalse next20: "r" next20:
  39.    BegFile FindReplace "╣" Return "+" Return Return JFalse next21: "r" next21:
  40.    BegFile FindReplace "╠" Return "+" Return Return JFalse next22: "r" next22:
  41.    BegFile
  42.  
  43. @6 MacroBegin
  44.    BegFile FindReplace "╒" Return "+" Return Return JFalse next23: "r" next23:
  45.    BegFile FindReplace "╕" Return "+" Return Return JFalse next24: "r" next24:
  46.    BegFile FindReplace "╛" Return "+" Return Return JFalse next25: "r" next25:
  47.    BegFile FindReplace "╘" Return "+" Return Return JFalse next26: "r" next26:
  48.    BegFile FindReplace "╤" Return "+" Return Return JFalse next27: "r" next27:
  49.    BegFile FindReplace "╧" Return "+" Return Return JFalse next28: "r" next28:
  50.    BegFile FindReplace "╪" Return "+" Return Return JFalse next29: "r" next29:
  51.    BegFile FindReplace "╡" Return "+" Return Return JFalse next30: "r" next30:
  52.    BegFile FindReplace "╞" Return "+" Return Return JFalse next31: "r" next31:
  53.  
  54.    BegFile FindReplace "╓" Return "+" Return Return JFalse next32: "r" next32:
  55.    BegFile FindReplace "╖" Return "+" Return Return JFalse next33: "r" next33:
  56.    BegFile FindReplace "╜" Return "+" Return Return JFalse next34: "r" next34:
  57.    BegFile FindReplace "╙" Return "+" Return Return JFalse next35: "r" next35:
  58.    BegFile FindReplace "╥" Return "+" Return Return JFalse next36: "r" next36:
  59.    BegFile FindReplace "╨" Return "+" Return Return JFalse next37: "r" next37:
  60.    BegFile FindReplace "╫" Return "+" Return Return JFalse next38: "r" next38:
  61.    BegFile FindReplace "╢" Return "+" Return Return JFalse next39: "r" next39:
  62.    BegFile FindReplace "╟" Return "+" Return Return JFalse next40: "r" next40:
  63.    BegFile
  64.